home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Animal World / Multimedia Animal World.iso / pc / data / chapters / shared.dir / 00457.ls < prev    next >
Encoding:
Text File  |  1980-01-25  |  2.0 KB  |  90 lines
  1. on mouseUp
  2.   if the mouseH > 540 then
  3.     if the movie = "MAIN.DIR" then
  4.       unLoadCast(4)
  5.       unLoadCast(16)
  6.       unLoadCast(17)
  7.       unLoadCast(18)
  8.       unLoadCast(19)
  9.       unLoadCast(20)
  10.       unLoadCast(21)
  11.       unLoadCast(22)
  12.       unLoadCast(23)
  13.       unLoadCast(24)
  14.       unLoadCast(25)
  15.       go(2)
  16.       exit
  17.     end if
  18.     if the frame > 15 then
  19.       if the movie <> "MAIN.DIR" then
  20.         if the movie <> "database.dir" then
  21.           if the movie <> "sils.dir" then
  22.             set hh to the castNum of sprite 8
  23.             set the video of cast hh to 0
  24.             set the sound of cast hh to 0
  25.             go(1)
  26.             set the video of cast hh to 1
  27.             set the sound of cast hh to 1
  28.             exit
  29.           end if
  30.         end if
  31.       end if
  32.       go(1)
  33.       exit
  34.     end if
  35.     if the movie <> "MAIN.DIR" then
  36.       if the movie <> "DATABASE.DIR" then
  37.         unLoadCast(1)
  38.         go(5, "MAIN.DIR")
  39.         exit
  40.       else
  41.         if the frame = 2 then
  42.           unLoadCast(1)
  43.           go(1, "MAIN.DIR")
  44.         else
  45.           go(2)
  46.         end if
  47.         exit
  48.       end if
  49.     else
  50.       go(2)
  51.       exit
  52.     end if
  53.   end if
  54.   if the mouseH < 50 then
  55.     if the movie <> "MAIN.DIR" then
  56.       if the movie <> "database.dir" then
  57.         if the movie <> "sils.dir" then
  58.           if the frame > 15 then
  59.             set hh to the castNum of sprite 8
  60.             set the video of cast hh to 0
  61.             set the sound of cast hh to 0
  62.             set the video of cast hh to 1
  63.             set the sound of cast hh to 1
  64.           end if
  65.         end if
  66.       end if
  67.     end if
  68.     if the movie = "DATABASE.DIR" then
  69.       if the frame < 5 then
  70.         puppetSprite(48, 1)
  71.         set the castNum of sprite 48 to 201
  72.         updateStage()
  73.         exit
  74.       else
  75.         puppetSprite(48, 1)
  76.         set the castNum of sprite 48 to 202
  77.         updateStage()
  78.         exit
  79.       end if
  80.     end if
  81.     if the movie <> "MAIN.DIR" then
  82.       go(1)
  83.     end if
  84.     puppetSprite(20, 1)
  85.     set the castNum of sprite 20 to 3
  86.     updateStage()
  87.     exit
  88.   end if
  89. end
  90.